home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs55.d81 / ascipr.seq < prev    next >
Text File  |  2009-10-10  |  3KB  |  167 lines
  1. /*****  ═ODIFIED ╨╥╔╬╘.├ ╨ROGRAM  *****
  2.  
  3. ╧RIGINAL FROM ├-╨OWER ╙OURCE DISK
  4.  
  5. ═ODIFIED TO CORRECT SPECIAL CHARACTERS
  6. BY: ╒NIDENTIFIED(?) ╤╠╔╬╦ UPLOADER                     
  7.  
  8. ═ODIFIED TO OUTPUT TO A STANDARD ┴╙├╔╔
  9. PRINTER BY: ═. ╘UCKER ┬RAWNER (03-14-88)
  10.  
  11. *************************************/
  12. #INCLUDE <STDIO.H>
  13.  
  14. #DEFINE  ╬┴═┼╙╔┌┼  20
  15. #DEFINE  ┼╥╥        1
  16. #DEFINE  ═┴╪╠╔╬┼   81
  17. #DEFINE  ═┴╥╟╔╬1    3
  18. #DEFINE  ═┴╥╟╔╬2    3
  19. #DEFINE  ╨┴╟┼╠┼╬   66
  20. #DEFINE  ┬╧╘╘╧═    66
  21.  
  22. MAIN (ARGC, ARGV)
  23. UNSIGNED ARGC;
  24. CHAR **ARGV;
  25. █
  26.    ╞╔╠┼ FIN;
  27.  
  28.    IF (ARGC == 1)
  29.       █
  30.       PRINTF ("├ORRECT SYNTAX: ╨╥╔╬╘ FILENAME FILENAME...\N");
  31.       EXIT();
  32.       ▌
  33.  
  34.    ELSE
  35.       FCLOSE(STDOUT);
  36.       IF (OPEN(6,4,7," ") == ╬╒╠╠  FERROR())
  37.          █
  38.          PRINTF("├HECK ╨RINTER...UNABLE TO OPEN FILE\N");
  39.          EXIT();
  40.          ▌
  41.       WHILE (--ARGC) 
  42.          █
  43.          IF ((FIN = FOPEN(*++ARGV, "R")) == ╬╒╠╠  FERROR())
  44.             █
  45.             PRINTF ("├ANT'T OPEN %S\N", *ARGV);
  46.             EXIT();
  47.             ▌
  48.          ELSE
  49.             █
  50.             FPRINT (*ARGV, FIN);
  51.             FCLOSE (FIN);
  52.             ▌
  53.          ▌
  54.          FCLOSE (6);
  55. ▌
  56.  
  57. FPRINT (NAME, FIN)
  58. CHAR *NAME,C;
  59. ╞╔╠┼ FIN;
  60. █
  61.    CHAR LINE[═┴╪╠╔╬┼];
  62.    UNSIGNED PAGENO, LINENO, COUNTER;
  63.    PAGENO = 0;
  64.    LINENO = 0;
  65.    WHILE (FGETS (LINE, ═┴╪╠╔╬┼, FIN) != ╬╒╠╠)
  66.       █
  67.       IF (LINENO == 0)
  68.          █
  69.          SKIP (═┴╥╟╔╬1);
  70.          PAGENO++;
  71.          HEAD (NAME, PAGENO);      
  72.          SKIP (═┴╥╟╔╬2);
  73.          LINENO = ═┴╥╟╔╬1 + ═┴╥╟╔╬2 + 1;
  74.          ▌
  75.       
  76.       COUNTER=0;
  77.       WHILE (LINE[COUNTER]!=0)
  78.          █
  79.          SWITCH(LINE[COUNTER])
  80.              █
  81.              CASE 175:
  82.                 █
  83.                 FPUTC('\176',6);
  84.                 BREAK;
  85.                 ▌
  86.              CASE 219:
  87.                 █
  88.                 FPUTC('\173',6);
  89.                 BREAK;
  90.                 ▌
  91.              CASE 221:
  92.                 █
  93.                 FPUTC('\175',6);
  94.                 BREAK;
  95.                 ▌
  96.              CASE 223:
  97.                 █
  98.                 FPUTC('\174',6);
  99.                 BREAK;
  100.                 ▌
  101.              CASE 164:
  102.                 █
  103.                 FPUTC('\137',6);
  104.                 BREAK;
  105.                 ▌
  106.              DEFAULT:
  107.                 █
  108.                 C = LINE[COUNTER];
  109.                 IF (ISUPPER(C))
  110.                    █
  111.                    C = UPASCII(C);
  112.                    GOTO PRINT;
  113.                    ▌  
  114.                 IF (ISLOWER(C))
  115.                    █
  116.                    C = LOASCII(C);
  117.                    GOTO PRINT;
  118.                    ▌
  119.                 PRINT:
  120.                 FPUTC(C,6);
  121.                 ▌
  122.              ▌
  123.           COUNTER++;
  124.         ▌
  125.         LINENO++;
  126.         IF (LINENO >= ┬╧╘╘╧═)
  127.            █
  128.            SKIP (╨┴╟┼╠┼╬ - LINENO);
  129.            LINENO = 0;
  130.            ▌
  131.         ▌
  132.         IF (LINENO > 0)
  133.            SKIP (╨┴╟┼╠┼╬ - LINENO);
  134. ▌ 
  135.  
  136. SKIP (N)
  137. █
  138.    WHILE (N--)
  139.       █
  140.       FPUTC ('\N',6);
  141.       ▌
  142. ▌
  143.  
  144. HEAD (NAME, PAGENO)
  145. CHAR *NAME;
  146. INT PAGENO;
  147. █
  148.      FPRINTF (6,"%-60S\120\141\147\145  # %U\N",NAME, PAGENO);
  149. ▌
  150.  
  151. UPASCII(C)
  152.  
  153. CHAR C;
  154. █
  155.     C=(C-128);
  156.     RETURN(C);
  157. ▌
  158.  
  159. LOASCII(C)
  160.  
  161. CHAR C;
  162. █
  163.     C=(C+32);
  164.     RETURN(C);
  165. ▌    
  166.  
  167.